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EDTSLDELETE = delete Lines 16-Sep-1984 VAX=11 BLiss-32_V4.0-7 Page 1| 
14- =ben- 1382 99: 38: \§ DISKSVMSMASTER: ch + sre LDELETE.BLI;1 Mace a 
3 1 1 ZTITLE “EDTSLDELETE = delete Lines' | : 
: ¢ § MODULE EDTSLDELETE , R ! Delete Lines | ; 
; i 4 {DENT = 'v04-006 ! File: LDELETE.BLI Edit: JBS1013 : 
zs 005 1 BEGIN | ; 
: § 9007 ! PITITILILILILILLILI LLL LILI L ii L iii iil itil iii) | : 
: 'e ; 
3 § 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * | : 
: 10 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * | : 
3 1} pet) : be ALL RIGHTS RESERVED. * : 
Py) :* ® . 
; ig $b18 1 !® ree fe acc IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd ba * ‘ 
; 14 bore 1 !* ONLY IN ACCORDANCE WIT E TER OF SUCH LICENSE AND WITH THE * ° 
3 15 015 1 !* INCLUSION OF THE ABOVE glad NOTICE. THIS SOFTWARE OR ANY OTHER * ° 
$ 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ‘ 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
3 8 dt : M TRANSFERRED. * : 
Py :* ® e 
3 20 Bo5s 1! phe ot rhe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 21 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
3 $§ 8058 ! :* CORPORA TON. ‘ : 
; 24 0034 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * . 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * , 
3; € 0026 1 !* ® 3 
.? an 0027 1 !« * 3 
3 $8 +4 : : “ieee hhh a i noticia aed asia yin ‘ 
; 50 0080 oe : 
; 1 0031 1 !+4+4 3 
; § 6035 ' } FACILITY: EDT -- The DEC Standard Editor : 
: 34 0034 1 | ABSTRACT: ; 
5 5 0035 1! F 
5; » 0036 1! This module executes the Line mode DELETE command. : 
3 He $44 : It also provides the delete part of the REPLACE command. : 
: +4 st ! ENVIRONMENT: Runs at any access mode - AST reentrant : 
i 4] 0041 | { AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 ; 
is 00¢3 | | MODIFIED BY: | : 
8 44 044 1! PY 
3 65 045 1 ! 1-001 = Original. DJS 30-JAN-81. This module was created by 3 
:; 46 aned 1! gaireceing the routines DELETE m. DEL_COM from EXEC.BLI. 3 
; oF Boe 1! 1-08 ¢ - Regularize headers. JBS 3 
3 48 048 1 ! 1-005 = Change DEL_COM to Eord8oeL CHO. ees [ane 3 
; | |649 0049 1! 1-208 - change count to 48-bits. SMB 05- 3 
; & 050 1: b2 - Stop pr ocessi My es n bad select r SMB O1-J 988 3 
7) oe 51 1! i $ - Use EDTSSFMT_CRLF {nstead of EDTS Out _FMTBUF. utes 05-Jul-1982 3 
PF} 26 B36 1! 1-007 - After deleting a Line, make gure the Character offset is 0. $ 
3 é be 1! Bug eeserted’ in SPR 11-4768 JBS 14-Jul-1982 3 
3 4 54 1/1 1- 3 - Suppress typing out the current_Line in EXT mode. JBS 15-Jul-1982 : 
3 2? 055 1! 1- - New screen update tai ¢: JBS 13-Sep-198 : 
3 $ 026 1/1- 19 - Modify to use new 48 bit ce. th gacros. sis, 91-0ct- 1982 3 
-% 057 1 ! 1-011 = Put code for ranpos in Line. STS 11-Oct-1 F 


ee ee ee 1$-2e0-1944 19:5 b dS PS UmGMASTERSCUBT SRCSLDELETE.BLI:T?™ (15 


' 1-01 Modify to use new compare macro, STS 20-0ct-198 
3 B35 18} g: lnprove the sopearence ° the Listing fits. BS 14-Jun-1983 
61 wy 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 
FORWARD ROUTINE 


EDTSSDEL 


LNS, 
EDTSSDEL~ CMD : NOVALUE; 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 


i MACROS: 

} NONE 

EQUATED SYMBOLS: 

} NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
i] 


In the routine 


1-30-1984 99:48: 1 


' Delete a ran 


VAX- mie Bliss-32 v4. 
DISKSVMSMASTER:CEDT 


ge of lines 
EL 


ETE command 


0-74 Page 
OSRCSLDELETE.BLI:1°" (25 


NS 


ernS. ye yy: range of Lines 1$-$ep-1964 98: 38: 3 TSsvmen meh Aten ctot OSRCILDELETE. BLI;1 gage (33 


ZSBTTL "EDTSSDEL_LNS = delete a range of Lines’ 
GLOBAL ROUTINE EDTSSDEL_LNS ! Delete a range of Lines 
= 


ERTS, DELETE 


'+¢ 

FUNCTIONAL DESCRIPTION: 
This routine is used by DELETE and REPLACE to delete a range of Lines. 
We process through the range, checkin n9 for /QUERY before deleting each 
Line. When we are done a message indicating the number of Lines 
deleted is displayed. 

FORMAL PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


8 | 


H af 1 

5 38 1 

; 1 

; 100 1 

3 19¢ ! 

3 5 1 

oe 1 

3 105 1 

ey 1 i 

a Yi 

: 199 1! 

; 110 1/ 

s 413 1 i 

: \1§ 1 i 

. TY 1 i 

3; (116 1 

s 115 1 

; 116 06 1 i EDTSSA_EXE_CURCMD 

3; 117 0687 1! EDT$$G_EXE_QRYQUIT 

3; (118 0688 1! EDTS$A_CUR_BUF 

s 119 0689 1: 

; 120 0690 1 | IMPLICIT OUTPUTS: 

s 21 0691 1! 

: 9 ; 3936 1/ EDTS$$G_RNG_FRSTLN 

oF 0693 1: EDT$$2— RNG “ORIGPOS 

: 126 0694 1! 

; 125 Be32 1 § ROUTINE VALUE: 

: 126 696 1! | 

3: 127 0697 1! 1 = at least one Line was deleted 

: 128 0698 1! 0 = no Lines were deleted 

3 144 0699 1! 

; 150 700 1! SIDE EFFECTS: 

s 6131 701 1! 

3 136 0702 1! NONE 

. 3S 0703 1: ‘ 
3 13 0704 1 i- : 
s 135 0705 1 f 
3; 136 0706 BEGIN é 
3; 137 Bree t 
; 138 708 EXTERNAL ROUTINE l 
3 139 0709 EDTSSFMT_STRCNT : NOVALUE, , y 
; 140 710 EDTSSFMT_CRLF ! Terminate an output Line ( 
> 141 711 EDTSSRNG_REPOS, 

3 126 ar EDTS STR, 

3; «14 071 EDTSSPROC_OQRYQAL, 

: 144 0714 EDTS _CNR 

3 «6145 0715 EDTSSDEL— CURLN 

: Hr ay EDTSSRD_ AXTL 

; «614 71 

3; «61468 718 EXTERNA , 

3; «149 719 EDTSS$L_LNO ZERO : LN_BLOCK, 

; 150 720 EDTS$$L_LNOD : LN BL ; | 

3 151 721 EDTSSA_EXE -CURCMD : REF NODE BLOCK, ! Pointer to the current command. 

3 13 7 ; EDT$$G_RNG_FRSTLN 

; 15 7 EDT$$2~RNG- ~OR1 GOS : POS_BLOCK, 


J 14 
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EDTSSac EXE _QRYQUIT 


DTSSA-CUR-BUF : REF POS_BLOCK; 


LOCAL 
NUM_DELETED : LN_BLOCK; 


, MOVELINE (EDTSSL_LNO_ZERO, NUM_DELETED) ; 
; Position to the first Line in the range. 
EDTS$G_RNG_FRSTLN = 


— 
TSS 
ONO 


'¢ 


i. if we start a search. 


IF EDTSSPROC_QRYOAL (0, 0) 
THEN 


BEGIN 

DLINE (NUMBER_ONE, NUM -PELETED): 
ED TESA CUR_BUF POS. CHAR_POS) = 0; 
EDTSSDEL_CORLN (); 


e 
EDTSS$RD_NXTLN (); 


'¢ 
5 _Btepley message about the count. 


EDTSSEMT -STRCNT Cun DELETED, yPLIT C line’), 5); 
EDTSSFMT— =3TR T T' deleted’) 
EDTSSFMT~ CRLF vy 

RETUR N (T= UF aL (NUM_DELETED, EDTS$L -LNO_ ZERO)); 
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-TITLE 
- IDENT 


»PSECT 


00 09 00 65 6€ 69 6C 20 00000 P.AAA: .ASCII 
64 6 65 6C 65 64 20 00008 P.AAB: .ASCII 


Lis - delete a range of Lines 12-868: 198 99: 38: \§ 


VAX-11 Bliss-32 V4.0-7 


EDTSSCPY_MEM (POS sult, -EDTSSA_CUR_BUF, EDTS$Z_RNG_ORIGPOS); 
IF ( NOT EDTSSRNG_REPOS (.EDTSSA_EXE_CURCMD CRANGE1])) THEN RETURN (0); 


i Loo ynetl Be ce end of the range, or the user typed ‘'Q° in response to 
' a /QUERY prompt. If we delete a Line, make sure the cursor position 
i is at 0 oh rene new Line, so we don't skip the text of the next Line 


WHILE (EDTSSNXT_LNRNG (1) AND ( NOT .EDTSS$G_EXE_QRYQUIT)) DO 


of routine EDTSSDEL UNS 


EDTSLDELETE EDTSLDELETE - delete Lines 


\V04-000\ 
EDTSCODE.NOWRT, SHR, PIC,2 


ent _STRCNT 

FMT~ ~tReF EDTSSRNG_REPOS 
FMT-STR, EDTS$SPROC—QRYQAL 
NXTLNRNG, EDT$SDEC_CURLN 
RD_AXTLN, EDTSSL_LNO_ZERO 


DISKSVMSMASTER:CEDT. sre LDELETE.BLI; ? 


' Quit flag for /QUERY operations. 
! The current editing position 


~M 
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; Routine Size: 186 bytes, Routine Base: _EDTSCODE + 0010 


| 
K 14 
EDTSLDELETE EDTSLDELETE - delete Lines 16-Sep-1984 00:48: VAX-11 Bliss-32 V4.0-74 Page 6 
tee td EDTSSDEL_LNS = delete a range of Lines 12-88-1382 99:58:48 DISKSVMSMASTER: CEDT.SRCJLDELETE.BLI;1 . ca 
-EXTRN EDT$$L_LNOO, EDTSSA_EXE_CURCMD 
“EXTRN EDTS$$G_~RNG_FRSTLN 
-EXTRN EDT$$Z~RNG_ORIGPOS 
XTRN EDTS$$G-EXE-QRYQUIT 
EXTRN EDT$$A~CUR-BUF 
00FC 00000 .ENTRY EDTSSDEL_LNS, Save R2,R3,R4,R5,R6,R7 : 0669 
57 000000006 00 9€ 9002 MOVAB EDTSSA_COR_BUF, R7 : | 
6 000000006 00 9E 0000 MOV EDTSS$L-LNO-ZERO, R6 ; 
6E 3f 4 : O913 move Ae SOTSSL LNO_ZERO, NUM_DELETED : 0730 
000000006 99 01 o0 901 MOVL = #1 EDTSSG_RNG_FR TIN : 0734 
67 p 1£ MOVL_ EDTSSA CUR BUF R + 0735 
000000006 00 $0 3 8 00021 MOVC3 #14, (RO), EDT$$Z_RNG_ORIGPOS : 
0 000000006 09 D0 990 9 MOVE EDTS$A_EXE_CURCMD, RO : 0737 
000000006 90 Q1 FB 00 g CALLS #1, EDTSSRNG_REPOS : 
A 0 €E9 0003A BLBC ~=._—«aRO. 7S ; 
01 DD 990 D 1$: PUSHL #1 + 0746 
000000006 99 gi FB 0003F CALLS #1, EDTSSNXT_LNRNG : 
2 0 £9 00046 BLBC =. RO : 
28 000000006 90 . 00049 BLBS  EDT$$G_EXE_QRYQUIT, 4$ : 
€ 00050 CLRQ = = (SP) + 0748 
000000006 00 Q FB 90052 CALLS #2, EDTSS$PROC_QRYQAL : 
16 E9 0005 BLBC Osa ; 
6E 6 0005¢ INCL  FIRST_LWORD > 0751 
03 12 0005 BNEQ 2 ; 
04 ag B6 0006 INCW NEXT_WORD é 
50 67 DO 00063 28: MOVL § EDTS$SA_CUR_BUF, RO : 0752 
0c AO B4 00066 CLRW =: 12 (RO) : 
000000006 00 00 FB 90069 CALLS #0, EDTS$$DEL_CURLN + 0753 
CB 11 00070 BRB 1$ : 0748 
000000006 00 00 FB 90072 3$: CALLS #0, EDTS$S$RD_NXTLN : 0756 
ce 11 0007 BRB 1$ : 0748 
05 DD 00078 4$: PUSHL #5 : 0761 
FEOF CF 9F 0007D PUSHAB P.AAA ; 
08 AE 9F 00081 PUSHAB NUM_DELETED ; 
000000006 00 0 FB 00084 CALLS #3, EDTSSFMT_STRCNT ; 
8B DD 00088 PUSHL #8 : 0762 
FF67 CF 9F 0008D PUSHAB P.AAB : 
000000006 00 62 FB 00091 CALLS a3, EDTSSFMT_STR : 
000000006 00 00 FB 00098 CALLS #0, EDTSSFMT~CRLF : 0763 
56 GE D1 O09F cMPL oW.1, LOW_2 : 0764 
04 Ab 04 AE af Sone CMPW  HIGH_1, HIGH_2 ; 
05 12 0009 BNEQ 5$ : 
50 01 DO 000AB MOVL #1, RO : 
11 OAE BRB 6b ; 
D4 008 5 CLRL 0 ; 
50 01 ¢3 B2 6$ SUBL3 RO, #1, RO ; 
50 04 00087 7$: CLRL = RO : 0765 
04 00089 RET ; 
} 
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; 196 0766 1 


M14 
EDTSLDELETE EDTSLDELETE - delete Lines 16-Sep-1984 00:48: VAX-11 Bliss-32 V4.0-74 Pa 
TO bOD EDTSSDEL. CMD = DELETE Line-mode command 13-808 -1 3b 99:58:48 DIEKSVMGHASTERSCEDT SRCSLDELETE.BLI:1 
: 198 rer } ZSBTTL "EDTSSDEL_CMD - DELETE Line-mode command' 
: 200 769 1 GLOBAL ROUTINE EDTSSDEL_CMD ! DELETE Line-mode command 
; 201 770 1 : NOVALUE = 
Bm RA 
; 04 718 1} FUNCTIONAL DESCRIPTION: 
: 206 ae: 1 i Command ge ogy routine for DELETE. ALL the work is done by the EDTSSDEL_LNS routine. 
: 34 p78 : } When it is done, display the current Line after the deletions. 
: 209 778 1 | FORMAL PARAMETERS: 
: 210 0779 1 i . vi 
: $t3 oreo ti — 
; 18 0786 ; IMPLICIT INPUTS: 
: 215 0784 1! EDT$$G_INP_SRC 
3 1 0785 1 : EDTS$$G_EXT—MOD 
: 218 0787 1 | IMPLICIT OUTPUTS: 
3 19 0788 #1! 
: $39 $790 1 3 — 
; 322 0791 1 | ROUTINE VALUE: 
3 32 079¢ 1i 
: $88 bee 1 i et 
: 226 0795 1! SIDE EFFECTS: 
: 227 0796 1: 
: 228 0797 1 NONE 
: 229 0798 1 
: 230 0799 1 i-- 
3 231 0800 1 
coven | 
> 236 $808 EXTERNAL ROUTINE 
; 235 0804 EDTSSTY_CURLN; 
. oo eee 
; 238 0807 : EDT$$G_INP_SRC, 
: 239 0808 EDT$$G_EXT—MOD; 
: 240 0809 
: re sty EDTSSDEL_LNS (); 
; cs OB12 IF ((.EDTS$G_INP_SRC EQL INP_TERM) AND ( NOT .EDTS$G_EXT_MOD)) THEN EDTSS$TY_CURLN (); 
; $08 nB14 1 END; ' of routine EDTS$DEL_CMD 
EXTRN EDTSSTY_CURLN, EDT$$G_INP_SRC 
-EXTRN EDTS$G_EXT_MOD 
0000 9009 .ENTRY EDTSSDEL CMD, Save nothing 
FE3F OC 00 FB 0 0¢ CALLS #0 gDT SDEL_LNS 
000000006 00 05 0000 TSTL EDT $$G_INP_SRC 


e 8 
. (4) 


ERTS, DELETE 


3; Routine Size: 


> 246 
;. 247 


‘ A N 14 - aot u : 
EDISSDEL CAD S°DELETE (Yne-mode command ox 850-1382 99:38:33 «BTS dumGnaSfeasctot shcSuoevere.aut; 
1 D BNEQ 1$ 
aoonnons 8 omrooons BER RRA RS SHS EET tat 
04 0001D 1$: RET 


30 bytes, Routine Base: _EDTSCODE + OOCA 
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fo 43 


; 0814 


PLISS/ENECHO CF SELB, EMIT IAL OPT ERLE) UOTRACEBACE/L E504 ESS tL DELETE /OBJ90BUS 1. DELETE MSRC$:LDELETE.BLI/UPDATE=(ENHS$:LDELETE 


Size: 216 68.0 + 16 data bytes 


; Lexemes/CPU-Min: eee 
; oY Used: 106 pages : 
; Compilation Complete P 
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EDT LETE TSLDELETE = dele s 16-50 Sep-1984 VAX-11 Bliss-32 V4.0 
Pe ED a CMD - bevert Line-nede command =3007 1382 99: $8: i DISKSVMSMASTER:CEDT. SRCSLDELETE. BLI;1 yoee 3 
: 356 oR 1g je ! of module EDTSLDELETE 

; 3 ) ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 232 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

3 Library Statistics 

; scocceees Symbols oooeee-- Pages Processing 

3 File Total Loaded Percent Mapped Time 

> _$255$DUA28: (EDT. SRCJEDT.L32; 377 “8 1 40 :00. 

Seats tUASe Lepr sneaPsects i32;1 b 36 ? 00:00:17 
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